该公司其他求购信息推荐 |
|
<%
sqllist="select info.info_id,info.flag as infoflag,info.gsid,info.sortid as infosortid,info.typeid as infotypeid,info.type,info.showname,info.content,info.period,info.dateandtime,info.picture,info.Specifications,info.Quantity,info.Packaging,info.PriceTerms,corporation.* from info,corporation where info.gsid="&gsid&" and corporation.id=info.gsid and info.flag=1 and info.type='买'"
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sqllist,conn,1,1
msg_per_page=3 '定义每页显示记录条数
%>
<%
if rslist.eof then
response.Write"
该公司暂无求购信息 "
else
%>
<%
gsid=rslist("gsid")
do while not rslist.eof and rowcount > 0
%>
<%
rowcount=rowcount-1
if not rslist.eof then
rslist.movenext
end if
loop
end if
%>
|
|